home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 11 / Cream of the Crop 11-1.iso / comm / mbtc9602.zip / OLXTAGS.BAS < prev   
BASIC Source File  |  1995-12-07  |  570b  |  19 lines
  1. 10 ' -------------------------------------------------------------------------
  2. 20 ' OLX tagline extraction utility.  (c) 1995 Mark Baum.  Public Domain.
  3. 30 ' -------------------------------------------------------------------------
  4. 1000 '
  5. 1010 FILES "*.LST"
  6. 1020 INPUT "Enter tagline filename:"; TagFile$
  7. 1030 '
  8. 1040 OPEN TagFile$ FOR INPUT AS 1
  9. 1050 OPEN "TAGLINES.OLX" FOR APPEND AS 2
  10. 1060 '
  11. 1070 WHILE EOF(1) = 0
  12. 1080     LINE INPUT #1, Tagline$
  13. 1090     IF LEN(Tagline$) <= 57 THEN PRINT #2, Tagline$
  14. 1100     WEND
  15. 1110 CLOSE
  16. 1120 SYSTEM
  17. 1130 END
  18.  
  19.